1 POKE808,252:POKE56576,199:POKE53272,21:POKE53265,155:POKE53270,200
45 POKE53265,PEEK(53265)AND239
50 POKE53280, 5:POKE53281,11:PRINT"[147]";CHR$(142);
55 PRINT"[152]ESTTRAILWESTTRAILWESTTRAILWESTT"
60 PRINT"ILWESTTRA[154]o[183][183][183][183][183][183][183][183][183][183][183][183][183]p[152]ESTTRAILWE"
65 PRINT"TRAILWES[144]T[146][154][180][153]TRAILWEST[154][167][152]ILWESTTRAI"
70 PRINT"WESTTRAIL[144] [146][154]l[175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]TRAILWEST"
75 PRINT"AILWESTT[144]RAIL WEST TRAIL[146][152]WESTTRAILW"
80 PRINT"TTRAILWESTTRAILWESTTRAILWESTTRA"
85 PRINT"WESTT[154]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[152]AILWEST"
90 PRINT"RAILW[144]E[146][154][180][167][152]TTRAIL"
95 PRINT"STTRA[144]I[146][154][180]1[155])[153]PLAYGAME[154][167][152]WESTTR"
100 PRINT"[160]LWEST[144] [146][154][180][167][152]RAILWES"
105 PRINT"TRAIL[144]W[146][154][180]2[155])[153]READINSTRUCTIONS[154][167][152]STTRAIL"
110 PRINT"ESTTR[144]A[146][154][180][167][152]LWESTT"
115 PRINT"ILWES[144]T[146][154][180]3[155])[153]READFEW[150]CREDITS[154][167][152]TRAILWE"
120 PRINT"TRAIL[144] [146][154][180][167][152]ESTTRAI"
125 PRINT"WESTT[144]R[146][154]l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]ILWEST"
130 PRINT"AILWE[144]ST TRAIL WEST TRAIL WES[146][152]TTRAILW"
135 PRINT"TTRAILWESTTRAILWESTTRAILWESTTRA"
140 PRINT"WESTTRAILWESTTRAILWESTTRAILWEST"
145 PRINT"RAILWE[154]o[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]p[152]TTRAIL"
150 PRINT"STTRA[144]I[146][154][180][153]PLEASEENTERCHOICE[154][170][152]WESTTR"
155 PRINT"LWEST[144] [146][154]l[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152]RAILWES"
160 PRINT"TRAIL[144]WEST TRAIL WEST TRAIL W[146][152]ESTTRAIL"
165 PRINT"ESTTRAILWESTTRAILWESTTRAILWESTT"
170 POKE53265,PEEK(53265)OR16
175 GETA$:IFA$=""THEN175
180 IFA$="1"THEN215
185 IFA$="2"THEN220
190 IFA$="3"THEN200
195 GOTO 175
200 GOTO 1000
215 NF$="TRAIL GAME":GOTO225
220 NF$="TRAIL INST"
225 POKE53280,5:POKE53281,11
226 PRINT"[147][208]LEASE WAIT WHILE LOADING..."
230 PRINT"[151]LOAD"CHR$(34)NF$CHR$(34)",8,1"
235 PRINT"RUN"
240 POKE631,ASC(""):POKE632,13:POKE633,13:POKE198,3
245 END
1000 PRINT"[147]"
1001 PRINT"CREDITS FOR THIS GAME MUST GO TO:"
1002 PRINT"IDEA BY DR.PEPPER AND KINLEY"
1003 PRINT"GAME CODING: DR.PEPPER AND KINLEY"
1004 PRINT"TITLESCREEN BY DR.PEPPER"
1005 PRINT"WINDOW MAGIC IMPROVED BY KINLEY"
1006 PRINT"GAME TESTED BY LITTLE JOHN"
1007 PRINT"FEW GREETINGS FROM FRESH[152] TO:"
1008 PRINT"TECMO * LITTLE JOHN * DR.ZOOM"
1009 PRINT"PRESS SPACE FOR MENU..."
1200 GETA$:IFA$=""THEN1200
1201 GOTO 50